/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_2 / issue_12 / extras / astronomy / sunep

< prev

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 16 20 f4 20 20 | 20 2a 2a 20 20 3e 53 55 |.... .  | **  >SU|
|00000010| 4e 45 50 20 2a 2a 0d 00 | 14 06 20 db 0d 00 1e 23 |NEP **..|.. ....#|
|00000020| 20 f1 27 27 8a 35 29 3b | 22 53 75 6e 20 65 70 68 | .''.5);|"Sun eph|
|00000030| 65 6d 65 72 69 73 20 70 | 72 6f 67 72 61 6d 22 0d |emeris p|rogram".|
|00000040| 00 28 06 20 3a 0d 00 32 | 1a 20 dd a4 44 45 47 28 |.(. :..2|. ..DEG(|
|00000050| 57 29 3d 35 2e 37 32 39 | 35 37 38 45 31 2a 57 0d |W)=5.729|578E1*W.|
|00000060| 00 3c 1b 20 dd a4 52 41 | 44 28 57 29 3d 31 2e 37 |.<. ..RA|D(W)=1.7|
|00000070| 34 35 33 32 39 45 2d 32 | 2a 57 0d 00 46 1a 20 dd |45329E-2|*W..F. .|
|00000080| a4 49 54 47 28 57 29 3d | b4 28 57 29 2a a8 28 94 |.ITG(W)=|.(W)*.(.|
|00000090| 28 57 29 29 0d 00 50 2c | 20 dd a4 4c 49 46 28 57 |(W))..P,| ..LIF(W|
|000000a0| 29 3d a8 28 57 29 2d 28 | 46 4c 41 47 28 30 29 2d |)=.(W)-(|FLAG(0)-|
|000000b0| 31 29 2a a8 28 28 b4 28 | 57 29 2d 31 29 2f 32 29 |1)*.((.(|W)-1)/2)|
|000000c0| 0d 00 5a 23 20 dd a4 41 | 53 4e 28 57 29 3d 99 28 |..Z# ..A|SN(W)=.(|
|000000d0| 57 2f 28 b6 28 31 2d 57 | 2a 57 29 2b 31 45 2d 32 |W/(.(1-W|*W)+1E-2|
|000000e0| 30 29 29 0d 00 64 0e 20 | de 20 46 4c 41 47 28 37 |0))..d. |. FLAG(7|
|000000f0| 29 0d 00 6e 10 20 f1 3a | 46 4c 41 47 28 30 29 3d |)..n. .:|FLAG(0)=|
|00000100| 31 0d 00 78 1e 20 f1 27 | 27 8a 32 30 29 3b 22 53 |1..x. .'|'.20);"S|
|00000110| 6f 6c 61 72 20 65 70 68 | 65 6d 65 72 69 73 22 0d |olar eph|emeris".|
|00000120| 00 82 1c 20 f1 8a 32 30 | 29 3b 22 2d 2d 2d 2d 2d |... ..20|);"-----|
|00000130| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 22 0d 00 8c 06 20 |--------|--".... |
|00000140| f1 0d 00 96 29 20 e8 22 | 53 74 61 72 74 69 6e 67 |....) ."|Starting|
|00000150| 20 64 61 74 65 20 28 44 | 2c 4d 2c 59 29 22 3b 44 | date (D|,M,Y)";D|
|00000160| 59 53 2c 4d 4e 53 2c 59 | 52 53 0d 00 a0 21 20 e8 |YS,MNS,Y|RS...! .|
|00000170| 22 53 74 65 70 20 69 6e | 74 65 72 76 61 6c 20 28 |"Step in|terval (|
|00000180| 20 64 61 79 73 29 22 3b | 53 54 50 0d 00 aa 1f 20 | days)";|STP.... |
|00000190| e8 22 46 6f 72 20 68 6f | 77 20 6d 61 6e 79 20 73 |."For ho|w many s|
|000001a0| 74 65 70 73 22 3b 4e 53 | 54 50 0d 00 b4 26 20 e8 |teps";NS|TP...& .|
|000001b0| 22 41 70 70 61 72 65 6e | 74 20 63 6f 6f 72 64 69 |"Apparen|t coordi|
|000001c0| 6e 61 74 65 73 20 28 59 | 2f 4e 29 22 3b 41 4e 24 |nates (Y|/N)";AN$|
|000001d0| 0d 00 be 1d 20 e7 20 41 | 4e 24 3d 22 59 22 20 8c |.... . A|N$="Y" .|
|000001e0| 20 49 53 57 3d 30 3a e5 | 20 8d 64 66 40 0d 00 c8 | ISW=0:.| .df@...|
|000001f0| 26 20 e8 22 54 72 75 65 | 20 63 6f 6f 72 64 69 6e |& ."True| coordin|
|00000200| 61 74 65 73 20 20 20 20 | 20 28 59 2f 4e 29 22 3b |ates    | (Y/N)";|
|00000210| 41 4e 24 0d 00 d2 14 20 | e7 20 41 4e 24 3d 22 4e |AN$.... |. AN$="N|
|00000220| 22 20 8c 8d 54 66 42 0d | 00 dc 0a 20 49 53 57 3d |" ..TfB.|... ISW=|
|00000230| 31 0d 00 e6 06 20 f1 0d | 00 f0 38 20 e7 20 49 53 |1.... ..|..8 . IS|
|00000240| 57 3d 30 20 f1 22 41 70 | 70 61 72 65 6e 74 20 67 |W=0 ."Ap|parent g|
|00000250| 65 6f 63 65 6e 74 72 69 | 63 20 63 6f 6f 72 64 69 |eocentri|c coordi|
|00000260| 6e 61 74 65 73 20 61 74 | 20 30 68 20 55 54 22 0d |nates at| 0h UT".|
|00000270| 00 fa 34 20 e7 20 49 53 | 57 3d 31 20 f1 22 54 72 |..4 . IS|W=1 ."Tr|
|00000280| 75 65 20 67 65 6f 63 65 | 6e 74 72 69 63 20 63 6f |ue geoce|ntric co|
|00000290| 6f 72 64 69 6e 61 74 65 | 73 20 61 74 20 30 68 20 |ordinate|s at 0h |
|000002a0| 55 54 22 0d 01 04 06 20 | f1 0d 01 0e 4b 20 f1 8a |UT".... |....K ..|
|000002b0| 33 29 3b 22 44 41 54 45 | 22 3b 8a 31 35 29 3b 22 |3);"DATE|";.15);"|
|000002c0| 4c 4f 4e 47 49 54 55 44 | 45 22 3b 8a 32 36 29 3b |LONGITUD|E";.26);|
|000002d0| 22 52 49 47 48 54 20 41 | 53 43 45 4e 53 49 4f 4e |"RIGHT A|SCENSION|
|000002e0| 22 3b 8a 34 34 29 3b 22 | 44 45 43 4c 49 4e 41 54 |";.44);"|DECLINAT|
|000002f0| 49 4f 4e 22 0d 01 18 26 | 20 f1 8a 31 38 29 3b 22 |ION"...&| ..18);"|
|00000300| 44 4d 53 22 3b 8a 33 31 | 29 3b 22 48 4d 53 22 3b |DMS";.31|);"HMS";|
|00000310| 8a 34 38 29 3b 22 44 4d | 53 22 0d 01 22 4b 20 f1 |.48);"DM|S".."K .|
|00000320| 8a 33 29 3b 22 2d 2d 2d | 2d 22 3b 8a 31 35 29 3b |.3);"---|-";.15);|
|00000330| 22 2d 2d 2d 2d 2d 2d 2d | 2d 2d 22 3b 8a 32 36 29 |"-------|--";.26)|
|00000340| 3b 22 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |;"------|--------|
|00000350| 2d 22 3b 8a 34 34 29 3b | 22 2d 2d 2d 2d 2d 2d 2d |-";.44);|"-------|
|00000360| 2d 2d 2d 2d 22 0d 01 2c | 06 20 f1 0d 01 36 19 20 |----"..,|. ...6. |
|00000370| 44 59 3d 44 59 53 3a 4d | 4e 3d 4d 4e 53 3a 59 52 |DY=DYS:M|N=MNS:YR|
|00000380| 3d 59 52 53 0d 01 40 25 | 20 46 4c 41 47 28 31 29 |=YRS..@%| FLAG(1)|
|00000390| 3d 30 3a 53 57 31 3d 31 | 3a f2 4a 75 6c 64 61 79 |=0:SW1=1|:.Julday|
|000003a0| 3a 44 4a 44 53 3d 44 4a | 44 0d 01 4a 1d 20 e3 20 |:DJDS=DJ|D..J. . |
|000003b0| 49 49 3d 30 20 b8 4e 53 | 54 50 2d 31 3a 46 4c 41 |II=0 .NS|TP-1:FLA|
|000003c0| 47 28 32 29 3d 30 0d 01 | 54 21 20 44 4a 44 3d 44 |G(2)=0..|T! DJD=D|
|000003d0| 4a 44 53 2b 49 49 2a 53 | 54 50 3a f2 43 61 6c 64 |JDS+II*S|TP:.Cald|
|000003e0| 61 79 3a f2 53 75 6e 0d | 01 5e 12 20 e7 20 49 53 |ay:.Sun.|.^. . IS|
|000003f0| 57 3d 31 20 8c 8d 64 4c | 41 0d 01 68 15 20 46 4c |W=1 ..dL|A..h. FL|
|00000400| 41 47 28 36 29 3d 30 3a | f2 4e 75 74 61 74 0d 01 |AG(6)=0:|.Nutat..|
|00000410| 72 20 20 4c 53 4e 44 3d | a4 44 45 47 28 4c 53 4e |r  LSND=|.DEG(LSN|
|00000420| 29 2b 44 50 53 49 2d 35 | 2e 36 39 45 2d 33 0d 01 |)+DPSI-5|.69E-3..|
|00000430| 7c 13 20 58 3d 4c 53 4e | 44 3a f2 4d 69 6e 73 65 ||. X=LSN|D:.Minse|
|00000440| 63 0d 01 86 22 20 4c 54 | 53 24 3d 53 24 3a 4c 54 |c..." LT|S$=S$:LT|
|00000450| 44 3d 58 44 3a 4c 54 4d | 3d 58 4d 3a 4c 54 53 53 |D=XD:LTM|=XM:LTSS|
|00000460| 3d 58 53 0d 01 90 26 20 | 58 3d a4 52 41 44 28 4c |=XS...& |X=.RAD(L|
|00000470| 53 4e 44 29 3a 59 3d 30 | 3a 53 57 33 3d 2d 31 3a |SND):Y=0|:SW3=-1:|
|00000480| 46 4c 41 47 28 35 29 3d | 30 0d 01 9a 20 20 f2 45 |FLAG(5)=|0...  .E|
|00000490| 71 65 63 6c 3a 58 3d a4 | 44 45 47 28 50 2f 31 35 |qecl:X=.|DEG(P/15|
|000004a0| 29 3a f2 4d 69 6e 73 65 | 63 0d 01 a4 22 20 52 41 |):.Minse|c..." RA|
|000004b0| 53 24 3d 53 24 3a 52 41 | 48 3d 58 44 3a 52 41 4d |S$=S$:RA|H=XD:RAM|
|000004c0| 3d 58 4d 3a 52 41 53 53 | 3d 58 53 0d 01 ae 16 20 |=XM:RASS|=XS.... |
|000004d0| 58 3d a4 44 45 47 28 51 | 29 3a f2 4d 69 6e 73 65 |X=.DEG(Q|):.Minse|
|000004e0| 63 0d 01 b8 22 20 44 44 | 53 24 3d 53 24 3a 44 44 |c..." DD|S$=S$:DD|
|000004f0| 44 3d 58 44 3a 44 44 4d | 3d 58 4d 3a 44 44 53 53 |D=XD:DDM|=XM:DDSS|
|00000500| 3d 58 53 0d 01 c2 0b 20 | e5 20 8d 54 52 42 0d 01 |=XS.... |. .TRB..|
|00000510| cc 20 20 58 3d a4 44 45 | 47 28 4c 53 4e 29 3a f2 |.  X=.DE|G(LSN):.|
|00000520| 4d 69 6e 73 65 63 3a 4c | 54 53 24 3d 53 24 0d 01 |Minsec:L|TS$=S$..|
|00000530| d6 24 20 4c 54 44 3d 58 | 44 3a 4c 54 4d 3d 58 4d |.$ LTD=X|D:LTM=XM|
|00000540| 3a 4c 54 53 53 3d 58 53 | 3a 58 3d 4c 53 4e 3a 59 |:LTSS=XS|:X=LSN:Y|
|00000550| 3d 30 0d 01 e0 1f 20 53 | 57 33 3d 2d 31 3a 46 4c |=0.... S|W3=-1:FL|
|00000560| 41 47 28 37 29 3d 30 3a | 46 4c 41 47 28 36 29 3d |AG(7)=0:|FLAG(6)=|
|00000570| 30 0d 01 ea 22 20 46 4c | 41 47 28 35 29 3d 30 3a |0..." FL|AG(5)=0:|
|00000580| f2 45 71 65 63 6c 3a 58 | 3d a4 44 45 47 28 50 2f |.Eqecl:X|=.DEG(P/|
|00000590| 31 35 29 0d 01 f4 22 20 | f2 4d 69 6e 73 65 63 3a |15)..." |.Minsec:|
|000005a0| 52 41 53 24 3d 53 24 3a | 52 41 48 3d 58 44 3a 52 |RAS$=S$:|RAH=XD:R|
|000005b0| 41 4d 3d 58 4d 0d 01 fe | 1e 20 52 41 53 53 3d 58 |AM=XM...|. RASS=X|
|000005c0| 53 3a 58 3d a4 44 45 47 | 28 51 29 3a f2 4d 69 6e |S:X=.DEG|(Q):.Min|
|000005d0| 73 65 63 0d 02 08 22 20 | 44 44 53 24 3d 53 24 3a |sec..." |DDS$=S$:|
|000005e0| 44 44 44 3d 58 44 3a 44 | 44 4d 3d 58 4d 3a 44 44 |DDD=XD:D|DM=XM:DD|
|000005f0| 53 53 3d 58 53 0d 02 12 | 83 20 f1 8a 31 29 3b 44 |SS=XS...|. ..1);D|
|00000600| 59 3b 22 20 22 3b 4d 4e | 3b 22 20 22 3b 59 52 3b |Y;" ";MN|;" ";YR;|
|00000610| 8a 31 34 29 3b 4c 54 53 | 24 3b 22 20 22 3b 4c 54 |.14);LTS|$;" ";LT|
|00000620| 44 3b 22 20 22 3b 4c 54 | 4d 3b 22 20 22 3b 4c 54 |D;" ";LT|M;" ";LT|
|00000630| 53 53 3b 8a 32 39 29 3b | 52 41 53 24 3b 22 20 22 |SS;.29);|RAS$;" "|
|00000640| 3b 52 41 48 3b 22 20 22 | 3b 52 41 4d 3b 22 20 22 |;RAH;" "|;RAM;" "|
|00000650| 3b 52 41 53 53 3b 8a 34 | 34 29 3b 44 44 53 24 3b |;RASS;.4|4);DDS$;|
|00000660| 22 20 22 3b 44 44 44 3b | 22 20 22 3b 44 44 4d 3b |" ";DDD;|" ";DDM;|
|00000670| 22 20 22 3b 44 44 53 53 | 0d 02 1c 09 20 ed 20 49 |" ";DDSS|.... . I|
|00000680| 49 0d 02 26 06 20 f1 0d | 02 30 17 20 e8 22 41 67 |I..&. ..|.0. ."Ag|
|00000690| 61 69 6e 20 28 59 2f 4e | 29 22 3b 41 4e 24 0d 02 |ain (Y/N|)";AN$..|
|000006a0| 3a 10 20 e7 20 41 4e 24 | 3d 22 4e 22 20 e0 0d 02 |:. . AN$|="N" ...|
|000006b0| 44 1b 20 e8 22 4e 65 77 | 20 64 61 74 65 73 20 28 |D. ."New| dates (|
|000006c0| 59 2f 4e 29 22 3b 41 4e | 24 0d 02 4e 14 20 e7 20 |Y/N)";AN|$..N. . |
|000006d0| 41 4e 24 3d 22 59 22 20 | 8c 8d 74 4c 40 0d 02 58 |AN$="Y" |..tL@..X|
|000006e0| 0c 20 f1 3a e5 8d 74 74 | 40 0d 02 62 06 20 3a 0d |. .:..tt|@..b. :.|
|000006f0| 02 6c 0d 20 dd f2 4d 69 | 6e 73 65 63 0d 02 76 1d |.l. ..Mi|nsec..v.|
|00000700| 20 e7 20 53 57 31 3d 31 | 20 f2 4d 69 6e 73 65 63 | . SW1=1| .Minsec|
|00000710| 5f 49 6e 74 65 67 65 72 | 73 0d 02 80 1d 20 e7 20 |_Integer|s.... . |
|00000720| 53 57 31 3d 2d 31 20 f2 | 4d 69 6e 73 65 63 5f 44 |SW1=-1 .|Minsec_D|
|00000730| 65 63 69 6d 61 6c 0d 02 | 8a 06 20 e1 0d 02 94 06 |ecimal..|.. .....|
|00000740| 20 3a 0d 02 9e 16 20 dd | f2 4d 69 6e 73 65 63 5f | :.... .|.Minsec_|
|00000750| 49 6e 74 65 67 65 72 73 | 0d 02 a8 1d 20 53 4e 3d |Integers|.... SN=|
|00000760| b4 28 58 29 3a 58 50 3d | 94 28 58 29 3a 58 44 3d |.(X):XP=|.(X):XD=|
|00000770| a8 28 58 50 29 0d 02 b2 | 19 20 41 3d 28 58 50 2d |.(XP)...|. A=(XP-|
|00000780| 58 44 29 2a 36 30 3a 58 | 4d 3d a8 28 41 29 0d 02 |XD)*60:X|M=.(A)..|
|00000790| bc 1c 20 58 53 3d a8 28 | 28 41 2d 58 4d 29 2a 36 |.. XS=.(|(A-XM)*6|
|000007a0| 30 30 2b 30 2e 35 29 2f | 31 30 0d 02 c6 0b 20 53 |00+0.5)/|10.... S|
|000007b0| 24 3d 22 2b 22 0d 02 d0 | 16 20 e7 20 53 4e 3d 2d |$="+"...|. . SN=-|
|000007c0| 31 20 20 8c 20 53 24 3d | 22 2d 22 0d 02 da 06 20 |1  . S$=|"-".... |
|000007d0| e1 0d 02 e4 06 20 3a 0d | 02 ee 15 20 dd f2 4d 69 |..... :.|... ..Mi|
|000007e0| 6e 73 65 63 5f 44 65 63 | 69 6d 61 6c 0d 02 f8 0a |nsec_Dec|imal....|
|000007f0| 20 53 4e 3d 2b 31 0d 03 | 02 21 20 e7 20 58 44 3c | SN=+1..|.! . XD<|
|00000800| 30 20 84 20 58 4d 3c 30 | 20 84 20 58 53 3c 30 20 |0 . XM<0| . XS<0 |
|00000810| 8c 20 53 4e 3d 2d 31 0d | 03 0c 22 20 58 44 31 3d |. SN=-1.|.." XD1=|
|00000820| 94 28 58 44 29 3a 58 4d | 31 3d 94 28 58 4d 29 3a |.(XD):XM|1=.(XM):|
|00000830| 58 53 31 3d 94 28 58 53 | 29 0d 03 16 23 20 58 3d |XS1=.(XS|)...# X=|
|00000840| 28 28 28 28 58 53 31 2f | 36 30 29 2b 58 4d 31 29 |((((XS1/|60)+XM1)|
|00000850| 2f 36 30 29 2b 58 44 31 | 29 2a 53 4e 0d 03 20 06 |/60)+XD1|)*SN.. .|
|00000860| 20 e1 0d 03 2a 06 20 3a | 0d 03 34 0d 20 dd f2 4a | ...*. :|..4. ..J|
|00000870| 75 6c 64 61 79 0d 03 3e | 12 20 e7 20 46 4c 41 47 |ulday..>|. . FLAG|
|00000880| 28 31 29 3d 31 20 e1 0d | 03 48 20 20 4d 4e 31 3d |(1)=1 ..|.H  MN1=|
|00000890| 4d 4e 3a 59 52 31 3d 59 | 52 3a 46 4c 41 47 28 31 |MN:YR1=Y|R:FLAG(1|
|000008a0| 29 3d 31 3a 42 3d 30 0d | 03 52 15 20 e7 20 59 52 |)=1:B=0.|.R. . YR|
|000008b0| 31 3c 30 20 8c 20 59 52 | 31 2b 3d 31 0d 03 5c 1c |1<0 . YR|1+=1..\.|
|000008c0| 20 e7 20 4d 4e 3c 33 20 | 8c 20 4d 4e 31 2b 3d 31 | . MN<3 |. MN1+=1|
|000008d0| 32 3a 59 52 31 2d 3d 31 | 0d 03 66 15 20 e7 20 59 |2:YR1-=1|..f. . Y|
|000008e0| 52 3c 31 35 38 32 20 8c | 20 8d 74 4e 43 0d 03 70 |R<1582 .| .tNC..p|
|000008f0| 1d 20 e7 20 59 52 3d 31 | 35 38 32 20 80 20 4d 4e |. . YR=1|582 . MN|
|00000900| 3c 31 30 20 8c 20 8d 74 | 4e 43 0d 03 7a 25 20 e7 |<10 . .t|NC..z% .|
|00000910| 20 59 52 3d 31 35 38 32 | 20 80 20 4d 4e 3d 31 30 | YR=1582| . MN=10|
|00000920| 20 80 20 44 59 3c 31 35 | 20 8c 20 8d 74 4e 43 0d | . DY<15| . .tNC.|
|00000930| 03 84 1e 20 41 3d a8 28 | 59 52 31 2f 31 30 30 29 |... A=.(|YR1/100)|
|00000940| 3a 42 3d 32 2d 41 2b a8 | 28 41 2f 34 29 0d 03 8e |:B=2-A+.|(A/4)...|
|00000950| 13 20 e7 20 59 52 31 3c | 30 20 8c 20 8d 74 62 43 |. . YR1<|0 . .tbC|
|00000960| 0d 03 98 22 20 43 3d a8 | 28 33 36 35 2e 32 35 2a |..." C=.|(365.25*|
|00000970| 59 52 31 29 2d 36 39 34 | 30 32 35 3a e5 20 8d 74 |YR1)-694|025:. .t|
|00000980| 6c 43 0d 03 a2 25 20 43 | 3d a4 49 54 47 28 28 33 |lC...% C|=.ITG((3|
|00000990| 36 35 2e 32 35 2a 59 52 | 31 29 2d 30 2e 37 35 29 |65.25*YR|1)-0.75)|
|000009a0| 2d 36 39 34 30 32 35 0d | 03 ac 19 20 44 3d a8 28 |-694025.|... D=.(|
|000009b0| 33 30 2e 36 30 30 31 2a | 28 4d 4e 31 2b 31 29 29 |30.6001*|(MN1+1))|
|000009c0| 0d 03 b6 15 20 44 4a 44 | 3d 42 2b 43 2b 44 2b 44 |.... DJD|=B+C+D+D|
|000009d0| 59 2d 30 2e 35 0d 03 c0 | 06 20 e1 0d 03 ca 06 20 |Y-0.5...|. ..... |
|000009e0| 3a 0d 03 d4 0d 20 dd f2 | 43 61 6c 64 61 79 0d 03 |:.... ..|Calday..|
|000009f0| de 12 20 e7 20 46 4c 41 | 47 28 32 29 3d 31 20 e1 |.. . FLA|G(2)=1 .|
|00000a00| 0d 03 e8 1e 20 44 3d 44 | 4a 44 2b 30 2e 35 3a 49 |.... D=D|JD+0.5:I|
|00000a10| 3d a4 4c 49 46 28 44 29 | 3a 46 3d 44 2d 49 0d 03 |=.LIF(D)|:F=D-I..|
|00000a20| f2 15 20 e7 20 46 3d 31 | 20 8c 20 46 3d 30 3a 49 |.. . F=1| . F=0:I|
|00000a30| 2b 3d 31 0d 03 fc 1a 20 | e7 20 49 20 3c 3d 20 2d |+=1.... |. I <= -|
|00000a40| 31 31 35 38 36 30 20 8c | 20 8d 54 5a 44 0d 04 06 |115860 .| .TZD...|
|00000a50| 29 20 41 3d a4 4c 49 46 | 28 28 49 2f 33 36 35 32 |) A=.LIF|((I/3652|
|00000a60| 34 2e 32 35 29 2b 39 2e | 39 38 33 35 37 32 36 45 |4.25)+9.|9835726E|
|00000a70| 2d 31 29 2b 31 34 0d 04 | 10 16 20 49 3d 49 2b 31 |-1)+14..|.. I=I+1|
|00000a80| 2b 41 2d a4 4c 49 46 28 | 41 2f 34 29 0d 04 1a 22 |+A-.LIF(|A/4)..."|
|00000a90| 20 42 3d a4 4c 49 46 28 | 28 49 2f 33 36 35 2e 32 | B=.LIF(|(I/365.2|
|00000aa0| 35 29 2b 38 2e 30 32 36 | 30 31 45 2d 31 29 0d 04 |5)+8.026|01E-1)..|
|00000ab0| 24 29 20 43 45 3d 49 2d | a4 4c 49 46 28 28 33 36 |$) CE=I-|.LIF((36|
|00000ac0| 35 2e 32 35 2a 42 29 2b | 37 2e 35 30 30 30 31 45 |5.25*B)+|7.50001E|
|00000ad0| 2d 31 29 2b 34 31 36 0d | 04 2e 1e 20 47 3d a4 4c |-1)+416.|... G=.L|
|00000ae0| 49 46 28 43 45 2f 33 30 | 2e 36 30 30 31 29 3a 4d |IF(CE/30|.6001):M|
|00000af0| 4e 3d 47 2d 31 0d 04 38 | 26 20 44 59 3d 43 45 2d |N=G-1..8|& DY=CE-|
|00000b00| a4 4c 49 46 28 33 30 2e | 36 30 30 31 2a 47 29 2b |.LIF(30.|6001*G)+|
|00000b10| 46 3a 59 52 3d 42 2b 31 | 38 39 39 0d 04 42 17 20 |F:YR=B+1|899..B. |
|00000b20| e7 20 47 3e 31 33 2e 35 | 20 8c 20 4d 4e 3d 47 2d |. G>13.5| . MN=G-|
|00000b30| 31 33 0d 04 4c 19 20 e7 | 20 4d 4e 3c 32 2e 35 20 |13..L. .| MN<2.5 |
|00000b40| 8c 20 59 52 3d 42 2b 31 | 39 30 30 0d 04 56 13 20 |. YR=B+1|900..V. |
|00000b50| e7 20 59 52 3c 31 20 8c | 20 59 52 2d 3d 31 0d 04 |. YR<1 .| YR-=1..|
|00000b60| 60 0e 20 46 4c 41 47 28 | 32 29 3d 31 0d 04 6a 06 |`. FLAG(|2)=1..j.|
|00000b70| 20 e1 0d 04 74 06 20 3a | 0d 04 7e 0c 20 dd f2 4f | ...t. :|..~. ..O|
|00000b80| 62 6c 69 71 0d 04 88 12 | 20 e7 20 46 4c 41 47 28 |bliq....| . FLAG(|
|00000b90| 35 29 3d 31 20 e1 0d 04 | 92 0e 20 46 4c 41 47 28 |5)=1 ...|.. FLAG(|
|00000ba0| 35 29 3d 31 0d 04 9c 18 | 20 f2 4a 75 6c 64 61 79 |5)=1....| .Julday|
|00000bb0| 3a 54 3d 44 4a 44 2f 33 | 36 35 32 35 0d 04 a6 2b |:T=DJD/3|6525...+|
|00000bc0| 20 43 3d 28 28 28 2d 31 | 2e 38 31 45 2d 33 2a 54 | C=(((-1|.81E-3*T|
|00000bd0| 29 2b 35 2e 39 45 2d 33 | 29 2a 54 2b 34 2e 36 38 |)+5.9E-3|)*T+4.68|
|00000be0| 34 35 45 31 29 2a 54 0d | 04 b0 1f 20 45 50 53 3d |45E1)*T.|... EPS=|
|00000bf0| 32 2e 33 34 35 32 32 39 | 34 34 34 45 31 2d 28 43 |2.345229|444E1-(C|
|00000c00| 2f 33 36 30 30 29 0d 04 | ba 1c 20 45 50 53 52 3d |/3600)..|.. EPSR=|
|00000c10| 45 50 53 2a 31 2e 37 35 | 34 33 32 39 32 35 32 45 |EPS*1.75|4329252E|
|00000c20| 2d 32 0d 04 c4 06 20 e1 | 0d 04 ce 06 20 3a 0d 04 |-2.... .|.... :..|
|00000c30| d8 0c 20 dd f2 45 71 65 | 63 6c 0d 04 e2 17 20 e7 |.. ..Eqe|cl.... .|
|00000c40| 20 46 4c 41 47 28 37 29 | 3d 31 20 8c 20 8d 54 54 | FLAG(7)|=1 . .TT|
|00000c50| 45 0d 04 ec 16 20 54 50 | 49 3d 32 2a af 3a 46 4c |E.... TP|I=2*.:FL|
|00000c60| 41 47 28 37 29 3d 31 0d | 04 f6 19 20 e7 20 46 4c |AG(7)=1.|... . FL|
|00000c70| 41 47 28 36 29 3d 30 20 | 8c 20 44 45 50 53 3d 30 |AG(6)=0 |. DEPS=0|
|00000c80| 0d 05 00 1f 20 f2 4f 62 | 6c 69 71 3a 45 50 53 31 |.... .Ob|liq:EPS1|
|00000c90| 3d a4 52 41 44 28 45 50 | 53 2b 44 45 50 53 29 0d |=.RAD(EP|S+DEPS).|
|00000ca0| 05 0a 1e 20 53 45 50 53 | 3d b5 28 45 50 53 31 29 |... SEPS|=.(EPS1)|
|00000cb0| 3a 43 45 50 53 3d 9b 28 | 45 50 53 31 29 0d 05 14 |:CEPS=.(|EPS1)...|
|00000cc0| 14 20 43 59 3d 9b 28 59 | 29 3a 53 59 3d b5 28 59 |. CY=.(Y|):SY=.(Y|
|00000cd0| 29 0d 05 1e 1d 20 e7 20 | 94 28 43 59 29 3c 31 45 |).... . |.(CY)<1E|
|00000ce0| 2d 32 30 20 8c 20 43 59 | 3d 31 45 2d 32 30 0d 05 |-20 . CY|=1E-20..|
|00000cf0| 28 1d 20 54 59 3d 53 59 | 2f 43 59 3a 43 58 3d 9b |(. TY=SY|/CY:CX=.|
|00000d00| 28 58 29 3a 53 58 3d b5 | 28 58 29 0d 05 32 22 20 |(X):SX=.|(X)..2" |
|00000d10| 53 51 3d 28 53 59 2a 43 | 45 50 53 29 2d 28 43 59 |SQ=(SY*C|EPS)-(CY|
|00000d20| 2a 53 45 50 53 2a 53 58 | 2a 53 57 33 29 0d 05 3c |*SEPS*SX|*SW3)..<|
|00000d30| 29 20 51 3d a4 41 53 4e | 28 53 51 29 3a 41 3d 28 |) Q=.ASN|(SQ):A=(|
|00000d40| 53 58 2a 43 45 50 53 29 | 2b 28 54 59 2a 53 45 50 |SX*CEPS)|+(TY*SEP|
|00000d50| 53 2a 53 57 33 29 0d 05 | 46 0e 20 50 3d 99 28 41 |S*SW3)..|F. P=.(A|
|00000d60| 2f 43 58 29 0d 05 50 13 | 20 e7 20 43 58 3c 30 20 |/CX)..P.| . CX<0 |
|00000d70| 8c 20 50 3d 50 2b af 0d | 05 5a 16 20 e7 20 50 3e |. P=P+..|.Z. . P>|
|00000d80| 54 50 49 20 8c 20 50 3d | 50 2d 54 50 49 0d 05 64 |TPI . P=|P-TPI..d|
|00000d90| 14 20 e7 20 50 3c 30 20 | 8c 20 50 3d 50 2b 54 50 |. . P<0 |. P=P+TP|
|00000da0| 49 0d 05 6e 06 20 e1 0d | 05 78 06 20 3a 0d 05 82 |I..n. ..|.x. :...|
|00000db0| 0c 20 dd f2 4e 75 74 61 | 74 0d 05 8c 12 20 e7 20 |. ..Nuta|t.... . |
|00000dc0| 46 4c 41 47 28 36 29 3d | 31 20 e1 0d 05 96 18 20 |FLAG(6)=|1 ..... |
|00000dd0| 46 4c 41 47 28 36 29 3d | 31 3a 46 4c 41 47 28 37 |FLAG(6)=|1:FLAG(7|
|00000de0| 29 3d 30 0d 05 a0 1f 20 | f2 4a 75 6c 64 61 79 3a |)=0.... |.Julday:|
|00000df0| 54 3d 44 4a 44 2f 33 36 | 35 32 35 3a 54 32 3d 54 |T=DJD/36|525:T2=T|
|00000e00| 2a 54 0d 05 aa 25 20 41 | 3d 31 2e 30 30 30 30 32 |*T...% A|=1.00002|
|00000e10| 31 33 35 38 45 32 2a 54 | 3a 42 3d 33 36 30 2a 28 |1358E2*T|:B=360*(|
|00000e20| 41 2d a8 28 41 29 29 0d | 05 b4 1f 20 4c 53 3d 32 |A-.(A)).|... LS=2|
|00000e30| 2e 37 39 36 39 36 37 45 | 32 2b 33 2e 30 33 45 2d |.796967E|2+3.03E-|
|00000e40| 34 2a 54 32 2b 42 0d 05 | be 25 20 41 3d 31 2e 33 |4*T2+B..|.% A=1.3|
|00000e50| 33 36 38 35 35 32 33 31 | 45 33 2a 54 3a 42 3d 33 |36855231|E3*T:B=3|
|00000e60| 36 30 2a 28 41 2d a8 28 | 41 29 29 0d 05 c8 20 20 |60*(A-.(|A))...  |
|00000e70| 4c 44 3d 32 2e 37 30 34 | 33 34 32 45 32 2d 31 2e |LD=2.704|342E2-1.|
|00000e80| 31 33 33 45 2d 33 2a 54 | 32 2b 42 0d 05 d2 25 20 |133E-3*T|2+B...% |
|00000e90| 41 3d 39 2e 39 39 39 37 | 33 36 30 35 36 45 31 2a |A=9.9997|36056E1*|
|00000ea0| 54 3a 42 3d 33 36 30 2a | 28 41 2d a8 28 41 29 29 |T:B=360*|(A-.(A))|
|00000eb0| 0d 05 dc 1e 20 4d 53 3d | 33 2e 35 38 34 37 35 38 |.... MS=|3.584758|
|00000ec0| 45 32 2d 31 2e 35 45 2d | 34 2a 54 32 2b 42 0d 05 |E2-1.5E-|4*T2+B..|
|00000ed0| e6 25 20 41 3d 31 2e 33 | 32 35 35 35 32 33 35 39 |.% A=1.3|25552359|
|00000ee0| 45 33 2a 54 3a 42 3d 33 | 36 30 2a 28 41 2d a8 28 |E3*T:B=3|60*(A-.(|
|00000ef0| 41 29 29 0d 05 f0 20 20 | 4d 44 3d 32 2e 39 36 31 |A))...  |MD=2.961|
|00000f00| 30 34 36 45 32 2b 39 2e | 31 39 32 45 2d 33 2a 54 |046E2+9.|192E-3*T|
|00000f10| 32 2b 42 0d 05 fa 23 20 | 41 3d 35 2e 33 37 32 36 |2+B...# |A=5.3726|
|00000f20| 31 36 36 36 37 2a 54 3a | 42 3d 33 36 30 2a 28 41 |16667*T:|B=360*(A|
|00000f30| 2d a8 28 41 29 29 0d 06 | 04 20 20 4e 4d 3d 32 2e |-.(A))..|.  NM=2.|
|00000f40| 35 39 31 38 33 33 45 32 | 2b 32 2e 30 37 38 45 2d |591833E2|+2.078E-|
|00000f50| 33 2a 54 32 2d 42 0d 06 | 0e 1f 20 54 4c 53 3d 32 |3*T2-B..|.. TLS=2|
|00000f60| 2a a4 52 41 44 28 4c 53 | 29 3a 4e 4d 3d a4 52 41 |*.RAD(LS|):NM=.RA|
|00000f70| 44 28 4e 4d 29 0d 06 18 | 1f 20 54 4e 4d 3d 32 2a |D(NM)...|. TNM=2*|
|00000f80| a4 52 41 44 28 4e 4d 29 | 3a 4d 53 3d a4 52 41 44 |.RAD(NM)|:MS=.RAD|
|00000f90| 28 4d 53 29 0d 06 22 1f | 20 54 4c 44 3d 32 2a a4 |(MS)..".| TLD=2*.|
|00000fa0| 52 41 44 28 4c 44 29 3a | 4d 44 3d a4 52 41 44 28 |RAD(LD):|MD=.RAD(|
|00000fb0| 4d 44 29 0d 06 2c da 20 | 44 50 53 49 3d 28 2d 31 |MD)..,. |DPSI=(-1|
|00000fc0| 37 2e 32 33 32 37 2d 31 | 2e 37 33 37 45 2d 32 2a |7.2327-1|.737E-2*|
|00000fd0| 54 29 2a b5 28 4e 4d 29 | 2b 28 2d 31 2e 32 37 32 |T)*.(NM)|+(-1.272|
|00000fe0| 39 2d 31 2e 33 45 2d 34 | 2a 54 29 2a b5 28 54 4c |9-1.3E-4|*T)*.(TL|
|00000ff0| 53 29 2b 32 2e 30 38 38 | 45 2d 31 2a b5 28 54 4e |S)+2.088|E-1*.(TN|
|00001000| 4d 29 2d 32 2e 30 33 37 | 45 2d 31 2a b5 28 54 4c |M)-2.037|E-1*.(TL|
|00001010| 44 29 2b 28 31 2e 32 36 | 31 45 2d 31 2d 33 2e 31 |D)+(1.26|1E-1-3.1|
|00001020| 45 2d 34 2a 54 29 2a b5 | 28 4d 53 29 2b 36 2e 37 |E-4*T)*.|(MS)+6.7|
|00001030| 35 45 2d 32 2a b5 28 4d | 44 29 2d 28 34 2e 39 37 |5E-2*.(M|D)-(4.97|
|00001040| 45 2d 32 2d 31 2e 32 45 | 2d 34 2a 54 29 2a b5 28 |E-2-1.2E|-4*T)*.(|
|00001050| 54 4c 53 2b 4d 53 29 2d | 33 2e 34 32 45 2d 32 2a |TLS+MS)-|3.42E-2*|
|00001060| b5 28 54 4c 44 2d 4e 4d | 29 2d 32 2e 36 31 45 2d |.(TLD-NM|)-2.61E-|
|00001070| 32 2a b5 28 54 4c 44 2b | 4d 44 29 2b 32 2e 31 34 |2*.(TLD+|MD)+2.14|
|00001080| 45 2d 32 2a b5 28 54 4c | 53 2d 4d 53 29 0d 06 36 |E-2*.(TL|S-MS)..6|
|00001090| 48 20 44 50 53 49 3d 44 | 50 53 49 2d 31 2e 34 39 |H DPSI=D|PSI-1.49|
|000010a0| 45 2d 32 2a b5 28 54 4c | 53 2d 54 4c 44 2b 4d 44 |E-2*.(TL|S-TLD+MD|
|000010b0| 29 2b 31 2e 32 34 45 2d | 32 2a b5 28 54 4c 53 2d |)+1.24E-|2*.(TLS-|
|000010c0| 4e 4d 29 2b 31 2e 31 34 | 45 2d 32 2a b5 28 54 4c |NM)+1.14|E-2*.(TL|
|000010d0| 44 2d 4d 44 29 0d 06 40 | b0 20 44 45 50 53 3d 28 |D-MD)..@|. DEPS=(|
|000010e0| 39 2e 32 31 2b 39 2e 31 | 45 2d 34 2a 54 29 2a 9b |9.21+9.1|E-4*T)*.|
|000010f0| 28 4e 4d 29 2b 28 35 2e | 35 32 32 45 2d 31 2d 32 |(NM)+(5.|522E-1-2|
|00001100| 2e 39 45 2d 34 2a 54 29 | 2a 9b 28 54 4c 53 29 2d |.9E-4*T)|*.(TLS)-|
|00001110| 39 2e 30 34 45 2d 32 2a | 9b 28 54 4e 4d 29 2b 38 |9.04E-2*|.(TNM)+8|
|00001120| 2e 38 34 45 2d 32 2a 9b | 28 54 4c 44 29 2b 32 2e |.84E-2*.|(TLD)+2.|
|00001130| 31 36 45 2d 32 2a 9b 28 | 54 4c 53 2b 4d 53 29 2b |16E-2*.(|TLS+MS)+|
|00001140| 31 2e 38 33 45 2d 32 2a | 9b 28 54 4c 44 2d 4e 4d |1.83E-2*|.(TLD-NM|
|00001150| 29 2b 31 2e 31 33 45 2d | 32 2a 9b 28 54 4c 44 2b |)+1.13E-|2*.(TLD+|
|00001160| 4d 44 29 2d 39 2e 33 45 | 2d 33 2a 9b 28 54 4c 53 |MD)-9.3E|-3*.(TLS|
|00001170| 2d 4d 53 29 2d 36 2e 36 | 45 2d 33 2a 9b 28 54 4c |-MS)-6.6|E-3*.(TL|
|00001180| 53 2d 4e 4d 29 0d 06 4a | 22 20 44 50 53 49 3d 44 |S-NM)..J|" DPSI=D|
|00001190| 50 53 49 2f 33 36 30 30 | 3a 44 45 50 53 3d 44 45 |PSI/3600|:DEPS=DE|
|000011a0| 50 53 2f 33 36 30 30 0d | 06 54 06 20 e1 0d 06 5e |PS/3600.|.T. ...^|
|000011b0| 06 20 3a 0d 06 68 0e 20 | dd f2 41 6e 6f 6d 61 6c |. :..h. |..Anomal|
|000011c0| 79 0d 06 72 0c 20 54 50 | 49 3d 32 2a af 0d 06 7c |y..r. TP|I=2*...||
|000011d0| 1c 20 4d 3d 4d 41 2d 54 | 50 49 2a a8 28 4d 41 2f |. M=MA-T|PI*.(MA/|
|000011e0| 54 50 49 29 3a 45 41 3d | 4d 0d 06 86 17 20 44 4c |TPI):EA=|M.... DL|
|000011f0| 41 3d 45 41 2d 28 53 2a | b5 28 45 41 29 29 2d 4d |A=EA-(S*|.(EA))-M|
|00001200| 0d 06 90 18 20 e7 20 94 | 28 44 4c 41 29 3c 31 45 |.... . .|(DLA)<1E|
|00001210| 2d 36 20 8c 8d 74 6e 46 | 0d 06 9a 1a 20 44 4c 41 |-6 ..tnF|.... DLA|
|00001220| 3d 44 4c 41 2f 28 31 2d | 28 53 2a 9b 28 45 41 29 |=DLA/(1-|(S*.(EA)|
|00001230| 29 29 0d 06 a4 15 20 45 | 41 3d 45 41 2d 44 4c 41 |)).... E|A=EA-DLA|
|00001240| 3a e5 20 8d 74 46 46 0d | 06 ae 20 20 54 4e 55 32 |:. .tFF.|..  TNU2|
|00001250| 3d b6 28 28 31 2b 53 29 | 2f 28 31 2d 53 29 29 2a |=.((1+S)|/(1-S))*|
|00001260| b7 28 45 41 2f 32 29 0d | 06 b8 11 20 4e 55 3d 32 |.(EA/2).|... NU=2|
|00001270| 2a 99 28 54 4e 55 32 29 | 0d 06 c2 06 20 e1 0d 06 |*.(TNU2)|.... ...|
|00001280| cc 06 20 3a 0d 06 d6 0a | 20 dd f2 53 75 6e 0d 06 |.. :....| ..Sun..|
|00001290| e0 1f 20 f2 4a 75 6c 64 | 61 79 3a 54 3d 44 4a 44 |.. .Juld|ay:T=DJD|
|000012a0| 2f 33 36 35 32 35 3a 54 | 32 3d 54 2a 54 0d 06 ea |/36525:T|2=T*T...|
|000012b0| 25 20 41 3d 31 2e 30 30 | 30 30 32 31 33 35 39 45 |% A=1.00|0021359E|
|000012c0| 32 2a 54 3a 42 3d 33 36 | 30 2a 28 41 2d a8 28 41 |2*T:B=36|0*(A-.(A|
|000012d0| 29 29 0d 06 f4 21 20 4c | 53 3d 32 2e 37 39 36 39 |))...! L|S=2.7969|
|000012e0| 36 36 38 45 32 2b 33 2e | 30 32 35 45 2d 34 2a 54 |668E2+3.|025E-4*T|
|000012f0| 32 2b 42 0d 06 fe 25 20 | 41 3d 39 2e 39 39 39 37 |2+B...% |A=9.9997|
|00001300| 33 36 30 34 32 45 31 2a | 54 3a 42 3d 33 36 30 2a |36042E1*|T:B=360*|
|00001310| 28 41 2d a8 28 41 29 29 | 0d 07 08 2a 20 4d 53 3d |(A-.(A))|...* MS=|
|00001320| 33 2e 35 38 34 37 35 38 | 33 45 32 2d 28 31 2e 35 |3.584758|3E2-(1.5|
|00001330| 45 2d 34 2b 33 2e 33 45 | 2d 36 2a 54 29 2a 54 32 |E-4+3.3E|-6*T)*T2|
|00001340| 2b 42 0d 07 12 27 20 53 | 3d 31 2e 36 37 35 31 30 |+B...' S|=1.67510|
|00001350| 34 45 2d 32 2d 34 2e 31 | 38 45 2d 35 2a 54 2d 31 |4E-2-4.1|8E-5*T-1|
|00001360| 2e 32 36 45 2d 37 2a 54 | 32 0d 07 1c 19 20 4d 41 |.26E-7*T|2.... MA|
|00001370| 3d a4 52 41 44 28 4d 53 | 29 3a f2 41 6e 6f 6d 61 |=.RAD(MS|):.Anoma|
|00001380| 6c 79 0d 07 26 25 20 41 | 3d 36 2e 32 35 35 32 30 |ly..&% A|=6.25520|
|00001390| 39 34 37 32 45 31 2a 54 | 3a 42 3d 33 36 30 2a 28 |9472E1*T|:B=360*(|
|000013a0| 41 2d a8 28 41 29 29 0d | 07 30 16 20 41 31 3d a4 |A-.(A)).|.0. A1=.|
|000013b0| 52 41 44 28 31 35 33 2e | 32 33 2b 42 29 0d 07 3a |RAD(153.|23+B)..:|
|000013c0| 25 20 41 3d 31 2e 32 35 | 31 30 34 31 38 39 34 45 |% A=1.25|1041894E|
|000013d0| 32 2a 54 3a 42 3d 33 36 | 30 2a 28 41 2d a8 28 41 |2*T:B=36|0*(A-.(A|
|000013e0| 29 29 0d 07 44 16 20 42 | 31 3d a4 52 41 44 28 32 |))..D. B|1=.RAD(2|
|000013f0| 31 36 2e 35 37 2b 42 29 | 0d 07 4e 25 20 41 3d 39 |16.57+B)|..N% A=9|
|00001400| 2e 31 35 36 37 36 36 30 | 32 38 45 31 2a 54 3a 42 |.1567660|28E1*T:B|
|00001410| 3d 33 36 30 2a 28 41 2d | a8 28 41 29 29 0d 07 58 |=360*(A-|.(A))..X|
|00001420| 16 20 43 31 3d a4 52 41 | 44 28 33 31 32 2e 36 39 |. C1=.RA|D(312.69|
|00001430| 2b 42 29 0d 07 62 25 20 | 41 3d 31 2e 32 33 36 38 |+B)..b% |A=1.2368|
|00001440| 35 33 30 39 35 45 33 2a | 54 3a 42 3d 33 36 30 2a |53095E3*|T:B=360*|
|00001450| 28 41 2d a8 28 41 29 29 | 0d 07 6c 21 20 44 31 3d |(A-.(A))|..l! D1=|
|00001460| a4 52 41 44 28 33 35 30 | 2e 37 34 2d 31 2e 34 34 |.RAD(350|.74-1.44|
|00001470| 45 2d 33 2a 54 32 2b 42 | 29 0d 07 76 1b 20 45 31 |E-3*T2+B|)..v. E1|
|00001480| 3d a4 52 41 44 28 32 33 | 31 2e 31 39 2b 32 30 2e |=.RAD(23|1.19+20.|
|00001490| 32 2a 54 29 0d 07 80 25 | 20 41 3d 31 2e 38 33 31 |2*T)...%| A=1.831|
|000014a0| 33 35 33 32 30 38 45 32 | 2a 54 3a 42 3d 33 36 30 |353208E2|*T:B=360|
|000014b0| 2a 28 41 2d a8 28 41 29 | 29 0d 07 8a 15 20 48 31 |*(A-.(A)|).... H1|
|000014c0| 3d a4 52 41 44 28 33 35 | 33 2e 34 2b 42 29 0d 07 |=.RAD(35|3.4+B)..|
|000014d0| 94 4a 20 44 4c 3d 31 2e | 33 34 45 2d 33 2a 9b 28 |.J DL=1.|34E-3*.(|
|000014e0| 41 31 29 2b 31 2e 35 34 | 45 2d 33 2a 9b 28 42 31 |A1)+1.54|E-3*.(B1|
|000014f0| 29 2b 32 45 2d 33 2a 9b | 28 43 31 29 2b 31 2e 37 |)+2E-3*.|(C1)+1.7|
|00001500| 39 45 2d 33 2a b5 28 44 | 31 29 2b 31 2e 37 38 45 |9E-3*.(D|1)+1.78E|
|00001510| 2d 33 2a b5 28 45 31 29 | 0d 07 9e 50 20 44 52 3d |-3*.(E1)|...P DR=|
|00001520| 35 2e 34 33 45 2d 36 2a | b5 28 41 31 29 2b 31 2e |5.43E-6*|.(A1)+1.|
|00001530| 35 37 35 45 2d 35 2a b5 | 28 42 31 29 2b 31 2e 36 |575E-5*.|(B1)+1.6|
|00001540| 32 37 45 2d 35 2a b5 28 | 43 31 29 2b 33 2e 30 37 |27E-5*.(|C1)+3.07|
|00001550| 36 45 2d 35 2a 9b 28 44 | 31 29 2b 39 2e 32 37 45 |6E-5*.(D|1)+9.27E|
|00001560| 2d 36 2a b5 28 48 31 29 | 0d 07 a8 22 20 4c 53 4e |-6*.(H1)|..." LSN|
|00001570| 3d 4e 55 2b a4 52 41 44 | 28 4c 53 2d 4d 53 2b 44 |=NU+.RAD|(LS-MS+D|
|00001580| 4c 29 3a 54 50 49 3d 32 | 2a af 0d 07 b2 21 20 52 |L):TPI=2|*....! R|
|00001590| 53 4e 3d 31 2e 30 30 30 | 30 30 30 32 2a 28 31 2d |SN=1.000|0002*(1-|
|000015a0| 53 2a 9b 28 45 41 29 29 | 2b 44 52 0d 07 bc 20 20 |S*.(EA))|+DR...  |
|000015b0| e7 20 4c 53 4e 3c 30 20 | 8c 20 4c 53 4e 3d 4c 53 |. LSN<0 |. LSN=LS|
|000015c0| 4e 2b 54 50 49 3a e5 8d | 74 7c 47 0d 07 c6 23 20 |N+TPI:..|t|G...# |
|000015d0| e7 20 4c 53 4e 3e 54 50 | 49 20 8c 20 4c 53 4e 3d |. LSN>TP|I . LSN=|
|000015e0| 4c 53 4e 2d 54 50 49 3a | e5 20 8d 64 46 47 0d 07 |LSN-TPI:|. .dFG..|
|000015f0| d0 06 20 e1 0d 07 da 06 | 20 3a 0d 07 e4 3d 20 f4 |.. .....| :...= .|
|00001600| 20 41 63 6b 6e 6f 77 6c | 65 64 67 65 6d 65 6e 74 | Acknowl|edgement|
|00001610| 3a 20 41 53 54 52 4f 4e | 4f 4d 59 20 57 49 54 48 |: ASTRON|OMY WITH|
|00001620| 20 59 4f 55 52 20 50 45 | 52 53 4f 4e 41 4c 20 43 | YOUR PE|RSONAL C|
|00001630| 4f 4d 50 55 54 45 52 0d | 07 ee 2b 20 f4 20 20 20 |OMPUTER.|..+ .   |
|00001640| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 50 |        |       P|
|00001650| 65 74 65 72 20 44 75 66 | 66 65 74 74 2d 53 6d 69 |eter Duf|fett-Smi|
|00001660| 74 68 0d 07 f8 38 20 f4 | 20 20 20 20 20 20 20 20 |th...8 .|        |
|00001670| 20 20 20 20 20 20 20 20 | 20 20 43 61 6d 62 72 69 |        |  Cambri|
|00001680| 64 67 65 20 55 6e 69 76 | 65 72 73 69 74 79 20 50 |dge Univ|ersity P|
|00001690| 72 65 73 73 20 20 31 39 | 38 35 0d 08 02 2d 20 f4 |ress  19|85...- .|
|000016a0| 20 41 64 61 70 74 65 64 | 20 62 79 3a 20 20 20 20 | Adapted| by:    |
|000016b0| 20 20 44 41 41 46 20 44 | 75 6c 77 69 63 68 20 44 |  DAAF D|ulwich D|
|000016c0| 65 63 20 31 39 38 38 0d | ff                      |ec 1988.|.       |
+--------+-------------------------+-------------------------+--------+--------+